home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 26
/
Cream of the Crop 26.iso
/
bbs
/
mxu_v152.zip
/
UP_DOOR.PAS
< prev
next >
Wrap
Pascal/Delphi Source File
|
1997-06-28
|
2KB
|
67 lines
{
▀▀▀▀▀▀▀▀ ▀▀▀▀▀▀ ▀▀ ▀▀
▀▀ ▀▀ ▀▀ ▀▀ ▀▀
▀▀ ▀▀ ▀▀▀ ▀▀▀▀▀ The DoorKit!
▀▀ ▀▀ ▀▀ ▀▀ ▀▀
▀▀ ▀▀▀▀▀▀ ▀▀ ▀▀
The BBS Door Development Kit By The People - For The People!
Feel free to modify or optimize this code at will. All I ask is that if
find a better way to do things (and you will), please send me a copy of
your modifications. Thanks in advance!....Larry L. Athey....
───────────────────────────────────────────────────────────────────────────────
NOTE: This door requires Async Professional for DOS before you can
compile it. The MAX_UPD.PAS unit can be easily modified for
use with any other protocol library or any external protocol
driver such as PDrive, DSZ, GSZ, CEXY, Etc.}
{$A+,B-,D+,E+,F+,G+,I-,L+,N-,O+,P-,Q-,R-,S-,T-,V+,X+}
PROGRAM UP_DOOR;
USES GENOVR,CRT,TDK_VARS,DOORKIT1,DOORKIT2,MAX_UPD;
{$O BS} {Async Professional Units}
{$O FASTW1}
{$O __TEXT}
{$O _PROTO}
{$O APCOM}
{$O APPORT}
{$O APFOSSIL}
{$O APDIGI14}
{$O APABSPCL}
{$O APXMODEM}
{$O APYMODEM}
{$O APZMODEM}
{$O MAXSPOOL}
BEGIN
ProgramName := 'MAXupdate v1.51';
ProgramDesc := 'MAXterm Resource Update Door';
LogPath := '';
LogFile := '';
UseLog := TRUE;
UseTTY := TRUE;
UseAd := FALSE;
UseSpool := FALSE;
MiscDesc := '{Path/File Name Of One RESOURCE.LST}';
ReadCfg;
IF DT <> 0 THEN BEGIN
GOTOXY(1,1);
WRITE('Waiting ' + IntToStr(DT) + ' seconds for a possible slowpoke remote machine to catch up...');
Wait(DT);
END;
InitDoorkit;
CASE Graphics OF
TTY : ErrLevel := 100;
ANSI : ErrLevel := 101;
AVATAR : ErrLevel := 102;
RIP : ErrLevel := 103;
MAX : ErrLevel := 104;
END;
MaxUpdate;
END.